www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\xcomasp\D_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp

    
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<META HTTP-EQUIV="pragma" CONTENT="no-cache"> 
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate"> 
<META HTTP-EQUIV="expires" CONTENT="0">




<LINK href="css_www_aspcpu_com_newdsoft_ruandingyuan_x.css" type=text/css rel=stylesheet>
<%

dir_set="../../"
response.charset="gb2312"

%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=checkadmin3_www_aspcpu_com_newdsoft_ruandingyuan_x.asp-->

<!--#include file=../../inc/functionFiless.asp-->

<!--#include file=../../inc/ND_class_function.asp-->




<%
AJAXshowLoader()


%>



<%


ss4=request("fname")





strDBPath12= left(ss4,instrrev(ss4,"/"))


sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath12=""
end if




'strDBPath1=路径
'filename=文件名
filename2=sssssss1

























ss4=request("pname")&"/"&request("fname")





strDBPath1= left(ss4,instrrev(ss4,"/"))


sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath1=""
end if




'strDBPath1=路径
'filename=文件名
filename=sssssss1



dddd=loadfile("../../templates/"&ss4)



%>



<script language=javascript>

function xxxdisit(){

document.getElementById("bbbbt").value="正在提交,请等待..........";
document.getElementById("bbbbt").disabled=true;


return true;
}
</script>










<div  id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">

<form action="D_chk_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp" method="post" onsubmit="xxxdisit();">
<table width=730 id="parms" name="parms">




<tr align="left">

<td>


<font style="font-size:17px; color:#ff0000">编辑 子模板 
</font>


<br><br>




模板保存路径:/templates/<%=ss4%>

</td>
</tr>







<tr align="left">

<td>

<%


sssp=request("fpath")

if sssp<>"" then
sssspq=split(sssp,"/")

ooosss=""

sssr=ubound(sssspq)-1


dddds=sssspq(sssr)
end if

%>
<script language="javascript">
function del_fr(){

if (confirm("确认删除?")==1){

self.location="D_del_a_moban_www_aspcpu_com_newdsoft_ruandingyuan_x.asp?fname=<%=ss4%>&pid=<%=request("pid")%>";


}

}


</script> 

<br /><br />


<a href=# onclick="del_fr();"><font style="font-size:14px" color="#3300FF">
删除此模板</font></a>

<input type="button" onClick="javascript:self.location='../../admin/adminTemplates/D_copy_moban.asp?pname=<%=fnnnnnname%>&filename=<%=strDBPath12&"copy_"&filename2%>&filenameb=<%=filename%>&pid=<%=request("pid")%>&fpath=<%=request("fpath")%>';" value="复制此模板" />

<br /><br />


</td>
</tr>





</table>




<table>





<tr align="left"><td>
<font style="font-size:14px" color="#3300FF">
模板代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
<br />调用标签时可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互<br />
而用$xx_request_asp$i可以读request("i")的值
</font>

</td>
</tr>
<tr align="left">

<td>





<script language= JavaScript>
function aaaar(aaa){
  var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
  if(arr!=null){

  }
  
  else
  {
  
  alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
  }
  
}




</script>






<%if request("edittype")="0" then%>
<hr />

<input type=button onclick="aaaar('../../<%=nd_web_admin_folder%>/D_select_a_label_before.asp')" value="点击本处插入一个标签到模板里">
<br>
<table>



<tr valign="middle" align="center"><td width=80>


模板代码：</td>

<td width=600>
<script src="../inc/admin.js" type="text/javascript"></script>

<textarea name="Content" cols=70 rows=20><%=replace(replace_textare_for_editor(dddd&""),"%",chr(37))%></textarea>



<br><a href="javascript:admin_Size(-10,'Content')"><img src="../../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content')"><img src="../../images/plus.gif" unselectable="on" border='0'></a>
</td>

</tr>
</table>

<%else



if instr(1,lcase(dddd),"</textarea>",1)<>0 then



%>




<script language=javascript>
alert("模板代码含textarea标签，请用代码模式编辑");
history.go(-1);

</script>


<%
end if








%>



<hr />

<input type=button onclick="aaaar('../../<%=nd_web_admin_folder%>/D_select_a_label_before.asp')" value="点击本处插入一个标签到模板里">
<br>
<table><tr valign="middle" align="center"><td width=80>


模板代码：</td>

<td width=720>


<textarea name="Content" id="Content" style="display:none"><%=replace(replace_textare_for_editor(dddd&""),"%",chr(37))%></textarea>










<%
	
Function GetLocationURL() 
Dim Url 
Dim ServerPort,ServerName,ScriptName,QueryString 
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT") 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url="http://"&ServerName 
If ServerPort <> "80" Then Url = Url & ":" & ServerPort 


'Url=Url&ScriptName 
'If QueryString <>"" Then Url=Url&"?"& QueryString 


GetLocationURL=Url 
End Function



 Function GetUrlpath() 

ScriptAddress = CStr(GetLocationURL()) '取得当前地址 


 
GetUrlpath = ScriptAddress 
End Function



session("picbase")=GetUrlpath()&"/templates/"&left(ss4,len(ss4)-1)
session("basepath_pre")=request("d")
%>
<%

if instr(1,lcase(dddd),"<html")<>0 and instr(1,lcase(dddd),"</html>")<>0 then


session("ndedt_full")="true"

else

session("ndedt_full")="false"



end if

%>






<script src="../../ND_editor/FCKeditor2_5/FCKeditor_fullpage.asp?dirstr=<%=request("dirstr")%>&basepath=<%="../../templates/"&strDBPath1%>"></script>


<script type="text/javascript">
<!--



var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../templates/<%=strDBPath1%>' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '720' ;
oFCKeditor.Height = '600' ;
oFCKeditor.Value = '' ;
oFCKeditor.ReplaceTextarea() ;



//-->


</script>




</td>

</tr>




</table>



<%end if%>








</td>
</tr>




<tr align="center" width=600>

<td>
<input type="hidden" name=pid value="<%=request("pid")%>" />

<input type="hidden" name=fname value="<%=request("fname")%>"/>

<input type="hidden" name=pname value="<%=request("pname")%>"/>
<input type="hidden" name=ss4 value="<%=ss4%>"/>


<input type="submit" value="修改"  name="bbbbt" id="bbbbt" />

</td>
</tr>



</table>

</form>
</div>






<script language=javascript>




AJAXfade(1,'l_do');

</script>


<%
AJAXcloseLoader()
%>